@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 165ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8up_sD } rŠr rX@ԢBpBqBrLآ i >  D OT}LBםDEJK V L7DEHIB VkcŰűΥQDE V0BU}DE8尝H屝IHI V0 L7L lɛ*:EPCɛ lDV}:ɛƵLH BHIh V` B V`BםDEHI VH`HJJJJ' h)' `0123456789W}ABCDEFɪ ɥɠ+ɂ8BR z LgL ERROR CODEFILE NOT FOUNDFILE NAME ERRORDISK # ERX}RORNO DEVICEWRONG FILE TYPENO LIBLIBH BHIh V`` rLr KYAN PASCAL VERSION 1.1 COPYRIGHY}T 1987 BY KYAN SOFTWARE 1850 UNION STREET, SUITE 183 SAN FRANCISCO, CA 94123FOR HELP TYPE: D1:HELPpGH{ ֍6 7xԩӱHẖčͱ 5: ά ]#J KIɛ  ]# L [} E -/ = A Э L `` HyH`X@Ԣ !" \}Lآ i >  !lD OLBޝDEJK V L>DE ]}HIB VkcŰűΥQDE V0BDE8尝H屝IHI V0  ^}L>L lɛ*:EPCɛ lD:ɛƵLH BHIh V` B _}V`BޝDEHI VH`HJJJJ. h). `0123456789ABCDEFɪ ɥɠ+ɂ8BR  `} LnL ERROR CODEFILE NOT FOUNDFILE NAME ERRORDISK # ERRORNO DEVICEWRONG FILE TYPENO LIBLIB ״ a}ش괩촩봩β ?; # ;` # '(ɛ``SL%&eeeإ  ` b} '( !(`ɛ !(`ɀ '(ɁSL% 8:L& ״ҴشӴԴ 98L&9LG&;Ly& 6%ﴩ𴅅FfFf c}ii* eeOL%״q״شiش`״q״شiش #`Ҵ #` Ҵ # d} #`8Ҵ״ҴӴشӴ8Ҵ逭Ӵ8Ҵ逭ӴL%Ҵ #` '(ɛ``L&% '(ɛ !(`A`# &`Ɂɂ e} ><*M !( & '(, !(Ӵ Դ`` '(XӴ Դ ``YӴ Դ ` ` !(SL%( !(SL% & '(,! '(X !(S f}L% '() !(SL%`) !(SL% '(, !( ` '(Y !(SL%` &Ҵ #״i״شiش '(, !(` & Ҵ # g}Ӵ #״i״شiش '(, !(` &Ҵ״Ӵش` LL% & 9`Դ '(> '( &Ӵ`< '( &ӴҴӴ`- '8 h}дҴѴӴL&+ !( 'дҴѴӴ '(+ 'ҴmдҴӴmѴӴL&- '8ҴдҴӴѴӴL&*6 '&д.Ѵ i}mҴmӴ⥄ҴӴL&/G 'Ҵ.Ӵ&&&8дѴдѴҴL& !(` '(Ɂ2م j} 9дȱѴȱ ԴԴ`ҴӴԴ`ɂ մдִѴ`* ״дشѴ`L%` 촭` <(` ) L<( k}A[L8)0:L($L('L);L,)* ɛL,)*`մִ )80 8 %!մ.ִմ.ִմ.ִմ.ִ մմL( ) l}`մִմִմ.ִմ.ִmմմmִִմ.ִ)mմմmִִ )0: )` )մִ` )ɛ`ٴ ) m}0 :A[ )ٴA`X`Y` ٴLn)ɛ`ٴ`` `` `ɛ` [ n};`SYNTAX ERRORUNDEFINED IDENTIFIERADDRESS MODE ERROREQU NEEDS LABELDUPLICATE IDENTIFIERSYMBOL TABLE FULLBRANCH OUT OF R o}ANGE"PASCAL COMPILER/ASSEMBLER VER. 1.2"COPYRIGHT 1985 BY KYAN SOFTWAREPC>COMMAND LINE ERRORimea p}qu}y)-%!15=9 q} r},$ s}00 t} u}PPp v}p w}X x} y} z} {}IMEAQU]Y |} }}LLl ~}   } }NFJV^ }  H }h }(.&* }6>nfjv~@ }` }8 }x } } } } }ܴ L%8ٴ8ڴ 8۴`ީL%ADCANDASLBC }CBCSBEQBITBMIBNEBPLBRKBVCBVSCLCCLDCLICLVCMPCPXCPYDECDEXDEYEORINCINXINYJMPJSRLDALDXLDYLSRNOPORAPHAPHPPLAPLPROLRORRTIRTSSBCSECS }EDSEISTASTXSTYTAXTAYTSXTXATXSTYADB DW EQUORGą8̱ͱ`т`i iL9ᅀK 9ML%8 }̱ͱFL%̱i ̱ͱiͱᴑҴȭӴȭԴ` 9ҴȭӴȭԴ`IE* ^AL } ɛ`-sɛ -L5;IȽLo:ʩ.IȩOIȩIȩIL$;P 轊L$;P  }L$;ELOL5; ɛ-(IȽL:ʩIȩI ɛ`-𫢐* LE:״uشvwx }`ywwy`yxrxy` `` x2v ;u ;r ;xs ;x }t ;y Byw B`HJJJJL'=`BWMuT܈!h􇰇ASߋ[!Åuю}6׃Gh,̂}䁲ÊnU0ۀ }pB '1V`ۍVHHmimimi:> > W> W> hh` JSR $` } ?H; ?;h`;`cdbHɛ A bb;cd }h` &b ɛ &LU? &`H ɛ & &h`a{`L@L@L@L@L@L@L@L@L }@ L@ RA A A` L@ L@ L@ L@L@L@L@L@L@L@L@L@L@L@LRA A A`L@L@L@L@L@ }L@ RA A A` L@!L@"L@#L@$LRA A`ȱ88` RA }`JiJKiKة" &3 &@` &L@" UNDECLARED TYPE IDJiJKiKة" &3 &=A }` &L0A" SHOULD BE TYPE IDJiJKiKحM `N`WM```ȱ8 }8;`M` HB AM` B? &WĊ &LA 0 &Mᩛ &ML( & 0 &) & }&M cBdB k?L`  &ɛLQB`BBBBC!C7CECRC_CuC~CCCCCCCCC DD)D6DCDPD^DnDDDDDDDE& }E:EKE]EhEyEEEEEEESYNTAX ERRORUNEXPECTED END OF INPUTARRAY DIMENSION EXPECTED"TO" OR "DOWNTO" EXPECTEDSPARE 4ORDINA }L TYPE EXPECTED":=" EXPECTED":" EXPECTED"," EXPECTED";" OR "END" EXPECTEDSPARE 10"DO" EXPECTEDSPARE 12"=" EXPECTEDID }ENTIFIER EXPECTED"[" EXPECTEDCONSTANT EXPECTED"(" EXPECTED"OF" EXPECTEDTYPE IDENTIFIER EXPECTED"." EXPECTED"PROGRAM" E }XPECTED"]" EXPECTED")" EXPECTED";" EXPECTED".." EXPECTED"THEN" EXPECTEDUNSIGNED INTEGER EXPECTEDFILE NAME EXPECTEDCAN }NOT OPEN FILEILLEGAL FILE NAME";" OR "UNTIL" EXPECTEDMISSING "END" STATEMENT(S)EXTRANEOUS "END" STATEMENT(S)";" OR "CASE }" EXPECTEDEXPRESSION EXPECTEDILL-FORMED BLOCKERROR IN CONSTANTWRONG TYPETOO MANY INDICESUNDECLARED IDENTIFIERNOT A REC }ORDNO SUCH FIELDNOT A POINTERERROR IN LABELFORWARD ERRORNESTED INCLUDEa+MJKHI︍F湩12 }䅡 L.F b ?;ׅl׹Kع@AÅJF=8 }ii`OUTPUT CKINPUT CKTEXT CKASSIGN    } INTEGER KREAL #KBOOLEAN +KWRITE 3WRITELN 4READ 5REA }DLN 6MAXINT OKTRUE RKFALSE SKRESET  REWRITE  GET  PU }T   #KSIN  #KCHAR ;KNEW   DISPOSE   } SQRT  #K LN  #K EXP  #K  }ARCTAN  #K COS  #K EOF  +KABS  K  }SQR  K ODD  +K EOLN  +KTRUNC  K  }ROUND  K ORD  K CHR  ;K SUCC   }K PRED  K SEEK    CHAIN   } ;K $TEMP Š } Z<[<"i[<"i[@>@/LP/ }ȱiiȥȱȱ8ȭii.. }qȭq۠ȭLKPȱiiLnQ8 ȥ1q1ȭ2q21 }ȭ2  tQLQ+`1i 12i2`H`H` R)  u` + ]r`: + }+`  + S` + SH !V^ ++` + ` } m`'  m`3  b`4  b`5  b`6  b`(  r``LR ?; ɛ }b`;0:LgWA[LqS'LU ?:.+>;=` ?` ?` 2 ?3;0 :A[\T$3eȱf }`i iҩ `F8 i i8`Ѧޱ3Ѧ eȱf }LUV ȱ`AND ARRAY BEGIN CASE CONST DIV DO DOWNTO ELSE END } FILE FOR FORWARD FUNCTIONGOTO IF IN LABEL !MOD "NIL #NOT OF $ }OR %PACKED &PROCEDUR'PROGRAM (RECORD )REPEAT *SET +THEN ,TO -TYPE .UNTIL /VAR 0WHILE } 1WITH 2 ? ?' ;' ?jLUief`;*` ? ?*;) ?LR`` ȱ }` ȱ `` ȱLVLVLVLWL3W` efȱgKh` } efȱȱȱȱȱȱȱ`efih` ef+gKh }` ef+gKh` ?}LR`gKh  W cY }YYl ?LW;. bc.`+`-`E`e`0`1`:``LW Y i i ح } TY;) LW8  LW& . . . .;) LW% RA`8 ةB } TYLX m m حəа8 ح    ef`  ef`.05 }.0-mm0.0;)mm`>`     }      XXXXX;X%XXXXQXQXXXX|Xȩȩȭ }`ȭ`8ȩȩ񸑖ȭ򸑖+` <F ȩ8 } ȥȭ񸑖ȭ򸑖񸑜ȭ򸑜ii`8ȩȥ8ȥ/ }+`+`+ <ȥ/ <F ȩ`+ HP`+ <F ȩ <ȥ/`+ } rȱ < ȥ`?K`ȱȱ < <\ъ\ь \\l\ܩ& RA`/\5\;\ }F\Q\Q\x\~\\ \ /\ =` =` = =` = =`ьУȱьМȱ2 =! =` =` =`ь }  =`& RA`B =`ȱȱii+ȩK/]ȱȱ }Hȱhliiũ& RA`C^I^O^U^[^a^g^m^s^y^^^^^^^^ }^^^^^^_____#_(_ -_ -_____#_(_ -_  2_  8_  >_ } D_J_O_T_Y_^_c_C^I^ C^ I^ C^ I^" =`# =`& =`% =` =`$ =`- =`. =`/ =`0 =` }1 =`2 =` =- =` =. =` =/ =` =0 =` =1 =` =2 =` =- =` =. =` =/ =` =0 =` }=1 =` =2 =`?L=@L=AL=DL=CL=BL=EL=I =`J =`K =`L =`PLe_QLe_RLe_SLe_TLe_UHьȱь }ȱ2 =h =`h& RA`L_L_L_L_L_L_ȱ8 =H qhqqqqq; =`< =` 'u= =` 'u> =` 'ue =`NLVpEȱ>/ <- % } ȱ^ = A>ȱ A>`& RA`aLVpbLVpcLVp\LVpdLVpH8ȱh& RA` =h =` } Lq4 =`5 =#ȩK` LqY =`Z =#ȩK`Lq3 =` 'uV =`Lq =`L }qf =`Lq7 =`Lq8 =`ȥ   Lq; =`< =`ȥ   Lq=  }=`> =` =`] =` L= L=& RA` < q`- RA` = 8 ȱ <ȥ1ȱ }2F`ȱ <ȥȱ Cu` <+` <-`1i12i2F12 } Cu <1ȭ2`. =`/`/ȱiiȥȱȱ8ȭ }ii..qȭq۠ȭLrH <8夥奐Lsȱ }-ьFFȱ Cuȱ =ȱȥ`i iСiiL_s <( RA` }ȱȭȱȱ Cu`ȱ) RA` yt* RA`ȱ =ȱȥ }`-ъ8`i i`H 'u ȱȱ <ȥ`ȱCȱ</ < }+ #ȱ ȱȥ =`& RA`ȱȱ =LuF =Lu = = } = =`+8 ȥȥȥȭ1ȭ2ȭ-ȭ.ȭ/ȭ012-. }`+/-3i i` r1ȭ2ȥȥ1q1ȭ2q2i iŘåřн+`LuL }v81ȭ2ȭ1ȭ2`1ȱ2`81ȱ2`1ȭ2`1ȱ2ii`ȱ }ƗƖƙƘŊ楙ŋ8ȩȭ1ȭ2ȭ-ȭ.ȱȱ1ȱ2ȱ-ȱ. }/ȱ0i i` <ȥ1i12i2F12 Cu Qs =8ȱ1ȭ }2 <`ȱ <`8 ȩȩȩȹ/ ``8 ȱȥ }`M = <?ȩK` =`ȱ 8 =ȱ 9 =D = < <`ȱ 8 = }C = <`8e Bf;gȭhgh  =`! =`e /f(#ȩK = } =`eL,zfL,zij! =;ȩK`8iȩ;ȩK }ȥٹi۹ܹ;߹K๠ّȩi =j =i`e#"f =MȩK }``HH `ȱ+'  ` =` =` =``A =`H 0 SBC 0,X STA 0,X LDA #<0 SBC 1,X STA !} 1,X LDA 0,X ;ODD AND #1 STA 1,X INX LDA #>0-&1 LDY #<0-&1 LDA #>&1 LDY #<&1L2 EQU * DW $FFFF DW $02E0 DW $02 "}E1 DW L1L1 EQU * LDX #$FF TXS JSR $9400 DW L2 DW L3 LDA (0,X) ;LDB STA 1,X INX SEC LDA LOCAL SBC #>&1 STA T #} LDA LOCAL+1 SBC #<&1 STA T+1 LDY #0 LDA 0,X INX STA (T),Y INY CPY #&1 BNE *-8 JSR L&1 LDA 0,X ;NOT EOR #1 STA $} 0,X LDA 1,X ;OR ORA 0,X STA 1,X INX SEC ;ISUB LDA 2,X SBC 0,X STA 2,X LDA 3,X SBC 1,X STA 3,X BVC *+5 JSR $94 %}03 INX INX SEC LDA #>0 SBC 0,X STA 0,X LDA #<0 SBC 1,X STA 1,X LDY #0 ;< LDA 2,X CMP 0,X LDA 3,X SBC 1,X BPL &} *+4 LDY #1 TYA BVC *+4 EOR #1 STA 3,X INX INX INX LDY #0 ;>= LDA 2,X CMP 0,X LDA 3,X SBC 1,X BMI *+4 LDY #1 '} TYA BVC *+4 EOR #1 STA 3,X INX INX INX LDY #0 ;> LDA 0,X CMP 2,X LDA 1,X SBC 3,X BPL *+4 LDY #1 TYA BVC *+4 (} EOR #1 STA 3,X INX INX INX LDY #1 ;<> LDA 2,X CMP 0,X BNE *+10 LDA 3,X CMP 1,X BNE *+4 LDY #0 STY 3,X INX IN )}X INX LDY #0 ;= LDA 0,X CMP 2,X BNE *+10 LDA 1,X CMP 3,X BNE *+4 LDY #1 STY 3,X INX INX INX DEX ;LSA DEX L *}DA #>*+11 STA 0,X LDA #<*+7 STA 1,X JMP *+3+&1 LDA SP STA LOCAL LDA SP+1 STA LOCAL+1 SEC LDA LOCAL SBC #>L&2+3 S +}TA SP LDA LOCAL+1 SBC #&1 STA 0,X LDA 1,X ADC #<&1 STA 1,X LDA (0,X) ; /}IND TAY INC 0,X BNE *+4 INC 1,X LDA (0,X) STY 0,X STA 1,XL&1 EQU * JMP L&1 DEX ;LCW DEX LDA #>&1 STA 0,X LD 0}A #<&1 STA 1,X LDA (0,X) ;LDW TAY INC 0,X BNE *+4 INC 1,X LDA (0,X) STY 0,X STA 1,X DEX ;LGA DEX LDA #>GLOBAL- 1}&2 STA 0,X LDA #&2 STA 0,X LDA LOCAL+1 SBC #<&2 STA 1,X L 2}DY #0 ;<= LDA 0,X CMP 2,X LDA 1,X SBC 3,X BMI *+4 LDY #1 TYA BVC *+4 EOR #1 STA 3,X INX INX INX CLC ;INC LDA 3} (0,X) ADC #>1 STA (0,X) INC 0,X BNE *+4 INC 1,X LDA (0,X) ADC #<1 STA (0,X) INX INX SEC ;DEC LDA (0,X) SBC #> 4}1 STA (0,X) INC 0,X BNE *+4 INC 1,X LDA (0,X) SBC #<1 STA (0,X) INX INX SEC LDA 0,X SBC #>&1 STA 0,X LDA 1,X 5}SBC #<&1 STA 1,X LDA #>&1 ;CHK CMP 0,X LDA #<&1 SBC 1,X BCS *+5 JSR $9409 CLC ;IXB LDA 2,X ADC 0,X STA 2,X LDA 6} 3,X ADC 1,X STA 3,X INX INX INX ;FJP LDA $FF,X BNE *+5 JMP L&1 LDA 0,X ;STB STA (1,X) INX INX INX LDA (0,X 7}) ;LDB STA 1,X INX LDA 0,X ;STW STA (2,X) INC 2,X BNE *+4 INC 3,X LDA 1,X STA (2,X) INX INX INX INX CLC ;IAD 8}D LDA 2,X ADC 0,X STA 2,X LDA 3,X ADC 1,X STA 3,X BVC *+5 JSR $9403 INX INX DW $FFFF DW L1 DW L2-1GLOBAL EQU $ 9}9400LOCAL EQU $80SP EQU $82T EQU $90 INC 0,X BNE *+4 INC 1,X INC 0,X LDA 0,X BNE *+4 DEC 1,X DEC 0,X DEC 0,X :} LDY #1 ;= LDA 1,X CMP 0,X BEQ *+4 LDY #0 STY 1,X INX LDY #1 ;<> LDA 1,X CMP 0,X BNE *+4 LDY #0 STY 1,X INX ;}LDY #1 ;< LDA 1,X CMP 0,X BCC *+4 LDY #0 STY 1,X INX LDY #1 ;>= LDA 1,X CMP 0,X BCS *+4 LDY #0 STY 1,X INX LD <}Y #1 ;<= LDA 0,X CMP 1,X BCS *+4 LDY #0 STY 1,X INX LDY #1 ;> LDA 0,X CMP 1,X BCC *+4 LDY #0 STY 1,X INX LDA =}(0,X) CLC ADC #1 STA (0,X) INX INX LDA (0,X) SEC SBC #1 STA (0,X) INX INX >}aiiȭiiȭꭓ&iiȱ8틵팵0L ?} QmmL80L&iZiȱ&i2 @}iȱ͕L͖L8홵횵8L^ꭓ&i A}iȱLL Q⅒ȱȱ͓ ȱ͔LJii B}Lii0͕ȱ͖ȱ`ꭋ LLL̑L͑LL䅊 i C}i8雥鵰Lȱ&iiȱiiL80L& D}iZiȱ&i2iLȱL&iZiȱL^ȱ& E}iiȱ88Lؑ`ꭕ LLꭋ&i慊iȱ F}&8包卅&i慊iȱ&8包卅ȹ& G}iJiȱ&iiȱqȥqii&iZ H}iȱ&i2iȱ8劅勅͋͌ 80D&iiȱ I}&iZiȱꭉ !5@ N}V*+1j3\JQ}#$< O}*klmno/0201KO  Zi P}[FIL8=WXMBCD9YG Q}H48z3oXoq R}q^p7qFJF1 S}6ClToo  7Z8D8 T}v^AJk1ge .h: :F  U}1 "TqF777f7f  V}yIIJqAFkTr]rr ur 1::  ^ W}1  "qF^q]]    1qYff  X}^^'^^Ti11 Yo JIy1r'IB[7 Y}E3  _ b N+OkLX $b.cmYfgnitHttKcKG Z}cKfp##sbNO( RPQ~ %||{n cD(K [}YLcK6%((&)(T>8![(eCDW=umD-KcK \} DcKKZq( (y&r45Z9M9M-^;G>2R6/PQM\Qk7M ]}5H,FmxSI;V}X/dj\nihPdw8 ilNoOhURz!bN}OR).! ^}PQMk_3E~c$.Kl{`v)+*'o?4) K)EwxJ,N _}O)EFKN=NEcNK))KKWK `}KNOUT]t`aNzOye:2^" a}NOVD<R?PQMjO"10%10sp b}:<S@4*A FJga]qRPQMuv c} d} e}@ABCdc ba`_\[*ZYW/VUSRQPO M K f}I CA@ ,<;,98764321.-,+&%$"   g}_ED?><;:532-+*(&0#   q}b%DOS SYSb*)DUP SYSbSAUTORUN SYSb)ZPC b'ED bNLIB bB b HELP bPRINT b "PIC B/MESHUSHE B2SKALAR B4SKALAR O B7MIUN B;MIUN O BNBAGRUT B QBAGRUT O B ZEXERSIZE BdEXERSIZEO BySH1 B{SH1 O BEX1 B EX1 O BPR I BSOUND I BGRAPHICSI BLENGTH I BCONCAT I BSUBSTRINI BINDEX I BSETCOLORI BPLOT I BPOSITIONI BLOCATE I BDRAWTO I BRANDOM I $   uvw(x(N:PR(; ! r}(. .,,)0kmhiml=,:+ s}-  'i(&^|+{)$  t}qp uo5634 yt2 *1 j[;, u};((((s [(  #z[.^xd^(:, v} qp~~[a[(,=<> srn],b0 w},]e,}\,`Zr+-%*/",,w/; x}a_:svcg~~[[,;,;f^ y}-g]: z}  {} |} }} ~}   #!'%,,,1/33...77:77 }7777<<?A==CD=>>EFGGGIJKHMMONNSRTRRUWWZX\[[]]^^^^ccfegghhhh }hjiminooqqq rkkusvswsxsztt|{}}__```6666666;;--55 }$$$$$$**pppp9999988888PPBB@ }@aabbb)44&""dd++LL((2200 ~~yllY }YQQVVHө@hX VxHԩh(`pBzDEJ `Hp BKh `HJJJJ< &h)< &`H B }HIh `H h `H h `BDEBHI H`` &L } B `0ϳL BϝDEϳHI L^L `DEBJK L`0BIDEJK }L^ϳ` p;ϳϲ%0 BϝDEHI L^ϳ`H I h L H LH } } QBh L ®  îĮ `B'3அVnI/O ERRORDISK DRIVE # ERRORINVALID FILENAMEFI }LE NOT FOUNDDISK FULLFILE LOCKEDDIRECTORY FULLNON-EXISTENT DEVICEDEVICE OR FILE NOT OPEN DISK ERRORP: ERROR READING : } ERROR INCLUDE : ERROR WRITING : yb`; 찭b#`cAa! yb`b# Lԯ; LIi``. } RA AL湠bɛ ( bɛ 쩛( B(DEJK Lx︍乭幩︍Lb }i︭iةBbDEHI L`Hb`b` 湭乍︭幍Lybɛ L ` y 2آf6+7 (XY2i(襽2i0:8988:ʩ4˩ƍ34ȅɩ ( }*)3 e) # ! $ c$ ! $ c$ L }ɛ ɜ~"L6& ` %%l ]!ƅ` !ƅ`H8}帥幐h8`h`8岥峰`Ƶƴ8`HƽƼ8弥彐h8`h`8帥幰``} ]! ` ! /!` ]! ɛ ɛ` ! /! ɛ ɛ` M#` #`88弥彰L}!LW"iiƽƼ8岥峐ɛ弅彅&*((8弅`ii(}ƽƼ8岥峐nɛL"ץƿƾ8岥峐ɛ8待必&*((8(待ei}8弥彰`8岥峐ɛ ƽƼL#8弅彅&*((` # ]!. ɛ澥(}ſɛ ]! Ll#` !` /!ɛ'`8岥峐ɛ ƽƼL#8弅彅&*((򅾊ž}` ! /!ƾ` !` /!L# ]!` L$ ! /! +$` ]! +$`3ѸL-$` !ɛ ]!ɛ`I `}U($)  (`ǥ22 $ii % l%ee %`ż彰`ż彰}`ɛ1(L%(ǥ 22ż彰`ż彰`ɛ 1( (ǥ }22𰥴ż彰`ɛ 1( (ǥ 22𽥶ż彐ɛ 1( (}ǥ` 226&!6&!v!#! !6&M##6& 6&-h. !!#v!$$M#;$$7&#M#!v!`} (/ N)3 N)/ N)3 N)}/ N)4 N). N) () _(`A[ ''lŠ1 N) )G3H31HH&&hehe&H3)ee}L& #8 ]! ɛL&`n1 N) )A@L7&3G33L7&q/ N) () _(Y`Lf+ )Lf+ )}`/ N) ))(ʩ3L7&G3)3L7&/ N) ))(ʩ4L7&G3)4L7& # +$ 'L' ]! L' #`Ƣ}3 ]!L'4 L'` # ! $ +$# ! $)? c$NQY 'L' ]! L' #`W''(m&m&m&&j(z(m&m&m&m&m&m&'.}''O'm&m&m&m&I'm&m&a{`} (Ƞ/ N) (`R1 N) )A@`G333 e)`1 N) () _(AL'SL'QL7&}BӝD1E V`BHI V`H BHIh V`BHD3EHI VH`%+ N) )ALf+3G}33`` (LR)0DEBJK VL%*BiDiE崝H嵝I V}H}IL* }#0BD3EJK VL%* BDE8帝H幝IHiHIiI V0ɩ B V`H *} (h 6*L ^* }_*`* R). N) (`********+*+I/O ERRORDISK DRIVE # ERRORINVALID FILENAMEFILE NOT FOUNDF}ILE TOO BIGDISK FULLFILE LOCKEDDIRECTORY FULLNON-EXISTENT DEVICEDEVICE OR FILE NOT OPENDISK ERROR"EDITOR VERSION 1.1"}COPYRIGHT 1985 BY KYAN SOFTWAREFILENAME? X@Ԣ+,-Lآ i >  }!lD OLBޝDEJK V L>DEHIB VkcŰűΥQ}DE V0BDE8尝H屝IHI V0 L>L lɛ*:EP}Cɛ lD:ɛƵLH BHIh V` B V`BޝDEHI VH`HJJJJ.} h). `0123456789ABCDEFɪ ɥɠ+ɂ8BR  LnL ERROR CODEFILE NOT FOUND}FILE NAME ERRORDISK # ERRORNO DEVICEWRONG FILE TYPENO LIBLIB ȥ`iiŴ嵰 ! /!L .ȅɅ9}4˥Ŵ嵰L,.Ŵ嵰 ȅɅƩȅ`:4ž忐 `} ( R). N) (L P}RESS ANY KEY RESUMEH CURSOR CONTROL HELPX SAVE & EXITS SAVE & RESUMEP SET FILENAMEQ DISCARD & QUITI INSERT FIL}EG GOTO LINE NUMBERA SET "A"B SET "B"C CHANGE "A" STRINGS TO "B" STRINGSTHE CHANGES MADE HAVE NOT BEEN SAVEDARE YOU S}URE (Y/N)? A: B: A: B: FILENAME: FILE AND STRING OPERATIONSEDIT CONTROL CODES:^E UP 1 LINE ^X DOWN 1} LINE^R UP 20 LINES ^C DOWN 20 LINES^T TOP OF FILE ^V BOTTOM OF FILE^A LEFT 1 WORD ^F RIGHT 1 WORD^S LEFT} 1 CHAR ^D RIGHT 1 CHAR^Q DEL LEFT CHAR ^G DEL RIGHT CHAR^Y DELETE LINE^W FIND BACKWARDS ^Z FIND FORWARDS^O }CUT ^P PASTEPRESS ANY KEY TO RESUME EDITING FILENAME OF FILE TO INSERTNEW FILENAME (BLANK TO QUIT)?CHANGE} ALL STRINGS OR SOME (A/S/Q)? FOR SOME (Y,N,Q) LINE NUMBER? K:@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ } !"#$%&'()*+,-./0123456789:;<=>?`abcdefghijklmnopqrstuvwxyz{|}~߀}߀ILVLnLLӠΠLLōL:L=ǠL}ɍϲˠƣLõLLL'LwLLLLLĚLКLܚLLҠLLLҞL}L:LLܦLLLLLLǠLԠŠĽLoLLtɠţ LL֤L?L@LLLȸLݸLLpLƹРҽ͠LLL LDLL@L$LL#L}0LJLWL=L.ōL LL'L LLLLpLLLL_L&LOLLLʩ`ʩ`hh67ȱ}ȱȱȑ HHl67X@ԢԕԖԗLآ i }>  !lD OLBޝDEJK V L>DEHIB VkcŰ}űΥQDE V0BDE8尝H屝IHI V0 L>L lɛ*:}EPCɛ lD:ɛƵLH BHIh V` B V`BޝDEHI V}H`HJJJJ. h). `0123456789ABCDEFɪ ɥɠ+ɂ8BR  LnL ERROR CODEF}ILE NOT FOUNDFILE NAME ERRORDISK # ERRORNO DEVICEWRONG FILE TYPENO LIBLIBh:LɘRESETGLɘTOO MANY OPEN FILESb}LɘRANGE ERRORuLɘARITHMETIC OVERFLOWLɘREAD PAST EOFLɘBAD INDEXLɘERRORàLɘBREAK  }䌰Lh ]ƍ 2䌐 h ]ƍ 2LژBOTTOM OF STACK 2`Hp BKhH V BHIh} V`HJJJJt 2h)t 2`0123456789ABCDEFʵ` &&& ee楐 [` &&&8匥卐}卅抈 [` &&&Ō卐 包卅ߥL[E 8劅勅 8包卅}` 8劅勅`ʱ` 葐`hihiHHʱ`I `  Þ`}  Þ`  Þ`  Þ`ə!əL͝ P Н (`LEL=LțL*`I E}L8   8   "8 ` d8 L Μ8 I `} m m M ) JJJJ  ` d `L͝   }M  }  }ߢ` Μ ` m m mmmm}m`8   ` . ..... . ..... . .}.... . .....`Nnnnnn n Nnnnnn n Nnnnnn n Nnnnnn n ` }`Ln) d i i ` ` 8  `8 !8  陰L͝8 }   `) ) 8 )) )8)`}`ʹ` 8吅呅&eeeإ) 0JJJJ 0) 0JJJJ 0)} 00Ȅ8啨 2- 2ƕ 2ƕ` XL  BL+-} B XLP0LP:LPHH&&&&hehee&&)eee8吩呩咐- B X} Џ 8吅呅ȥ` X  BLPȩ`Ff uu6` LJLP LJLP} LJLP LJLP LJLP LJLPU) i) `` Кi`) ``L2w)s}L&0\&0Vee0G&0A)ee00&&&ƒ) 8吅呅i`L}n 8唅啅&eeeة&&Ɠ 8}` 8`襓œ 2ƓLTē` 2Lf$ $` X}L  BL  .E+- 0:    ^_l$ B XL墠L}         ru~̣ϣأrfL L }) L ) LL L m  )mL` L- 8}m8  m ح- `$ X  BLf9`>}` ȥ` ܥ` ` ܥ  ` ܥ ` ɓhh` }ɓhh` E@ĒE` C` ɓ H 2h`H BDEHȱI VLh`H}@ iL@BEDEJK VL? h``H h` B VL`8} ` dLJLP dLJLP dLJLP dLJLP dLJLP dLJLPь}``` XL B`Ő 2ƐLæ 2`ʵ L:L:TR}UEFALSEʵLʵLܚ )  ĚL RɓL !H h #!"#ɛ }!`"#`LHBDEHȱI VhɈL`ȱɛ }`BDEHI VH` 1` ɓ  B!LJLPʠ` b` ɓ  B"L}JLPʠ`ɓ ' "!` ' BL B` ] 2àLɘ FILE I/O ERRORa ) 8吅呅e}ePLn) 8吅呅dLn ` ) 8i`` ɞ}`  Ө)  Ě``  !"#$%&'()0123456789@ABCDEFGHIPQRSTUVWXY`abcdefghipqrstuvwxy})JJJe)e`L[8 ;8咕 _ ) - 2 7. 2 7ƒE 2+)}- 2JJJJ 0 2) 0 2i`ɚL[L[8 _ )  7. 2L 0 2}. 2 ƒ00 2Lƒ0 7Li`eȵ) ē 2L) - 2`) 0 2666666`hihiHH}ʠȱ`hihiHHȱȵ`hhiiHHȱʱ`hhiiHH}葌`)` 报 `)报 `L E@ĒE }iBEDEJK VLDEHIB VZL:ŐőѩDE V0>}DE8吝H呝IHI V ] 2"LɘERROR IN CHAIN FILENAME l ͫ ) < )ߍ j} ܚ ͫ$ $ )i>, ,3 , 8 ,),}38==>> ,  К  К , Ě ͫ? ? ? ܚ ͫG h G ܚ ` Ě G ܚ X Ě G } P Ě G Ě G ܚ Ě G ܚ x Ě G ܚ p Ě G ܚ @ Ě ? ܚ T= Ě H ܚ`"wfh}hXce0% )Qg1r8!67AP%e'738!S"ur2&Ih'@y%%`C!2GP ͫo o)  Ln o})  Ǡ ` o & ܚ  |= T= ͫ$ o  ͫ o  К ͫ  $ . ܚ К  Ě }$ 6 ܚ К ͫ4 4 4 ܚ ͫg N g ܚ F Ě g ܚ > Ě 4 ܚ ͫO g ^ Ě g ܚ V Ě ͫW O} W O К  Ě ͫ_ _ _ Ě ͫ_ _=) f>0 ܚL T= Tn Ө`hXce}Td(FHPX@)V(26FQd)w @ f"wfh`) Ln ͫ, , ; |==i=>i>, ,3 7} , ܚ ? Ě ͫw , w w Ě  ܚ ͫw٭=)#=i=>i> w G ܚ ͫw>8n>n= w} T= Ө`Bp#`p"wfhhhŐHH`ȱȱhhLWhihiHH摥ѐȱHȱ}hL8ȱȱ` Đ XL '` B X`摥Ő`ii}HȱCeeȑȑȥiiȑ`iiőKŐAee}ȱȥ8咑ȱ哑ȥLZœŒȱLZȱL'8}ȱє єȱL1ȱȥqȥqі.і&ȱȱ}qȱq`qȥqŐȱőȱqȱq`}`舱ʕ` ʵ  H BiDiE JK VL 1BDE}HȱI VL Lh` ʕ`ʱ` !葊 ` UiI`} I` I5 iI` I5iI` @摵 JJJ)he}搥ő`JJJ)h e` JJJ )he%i `摵 JJJ)he[p_sD } rŠr rX@ԢBpBqBrLآ i >  D O}LBםDEJK V L7DEHIB VkcŰűΥQDE V0B}DE8尝H屝IHI V0 L7L lɛ*:EPCɛ lD}:ɛƵLH BHIh V` B V`BםDEHI VH`HJJJJ' h)' `0123456789}ABCDEFɪ ɥɠ+ɂ8BR z LgL ERROR CODEFILE NOT FOUNDFILE NAME ERRORDISK # ER}RORNO DEVICEWRONG FILE TYPENO LIBLIBH BHIh V`` rLr KYAN PASCAL VERSION 1.1 COPYRIGH}T 1987 BY KYAN SOFTWARE 1850 UNION STREET, SUITE 183 SAN FRANCISCO, CA 94123FOR HELP TYPE: D1:HELPpGH{ % % 8ȥȥʩ  oʩ  oʩ ʩo L Always press t }he option key duringʩ" x oʩ ʩ L power-up.ʩ x oʩ  oʩ ʩ }!L!To Edit >D1:EDʩ x oʩ ʩ<!LX!For Help in Edit press ʩ x oʩ  } oʩ ʩ!L!To Compile >D1:PCʩ x oʩ ʩѕ!L!PC>D1:FILENAME [Option(s)]ʩ } x oʩ ʩ"L6"Options: -LP listing to printerʩ x oʩ ʩb"L" -L lis }ting to screenʩ x oʩ ʩ"L" -O FILENAME change obj fileʩ$ x oʩ }ʩ"L# -O omit object fileʩ x oʩ ʩC#Lh# -EP error listing to printerʩ}% x oʩ  oʩ ʩ#L#To Run >D1:FILENAME.Oʩ x oʩ ʩ#L$.O }is default object file extensionʩ# x oʩ  oʩ ʩD$LU$To enter DOS >DOSʩ x }oʩ ʩ$L$To exit DOS L(OAD) D1:Bʩ x oʩ  oʩ ʩԕ$L$To print a fil}e >D1:PRINT.Oʩ x oȱ`  x oʩ  oʩ ʩԕ$L$To print a fil; & & 8ȥȥHpBUD EJ VLP:hȱ`8"}ȥȥHp B Vhȱ`8Tȥȥʩ ʩ"}ʩʩʩʩ ʩ[!Le!FILENAME? ʩ xʩ"} ʩ) 9 8ʩ ʩ!L!Line numbers(Y/N)? ʩ xʩ ʩ K 8  ʩ"}ʩ) ʩ ,IL&ʩʩYʩʩ"}5L%ʩʩʩʩ PI"}Ld#ʩ ʩ#L#000ʩ xʩʩ rʩS#LU# ʩ xʩ"}ʩ PIʩʩdPI5LX"}$ʩ ʩ$L$00ʩ xʩʩ rʩG$LI$ ʩ xʩ"}ʩcPIʩʩPI5L@%ʩ"} ʩ0ʩ {ʩʩ rʩ/%L1% ʩ xʩʩ"}PIL%ʩ ʩʩ rʩÕ%L% ʩ xʩ"} Lu&ʩʩʩʩʩuuP " }ʩ  oL&ʩ ʩʩ {ʩ L" s ʩ ȱ`"!} ʩ  oL&ʩ ʩʩ {ʩ L" s ʩ ȱ` @E EA8ȥȥ8葐H` B V@ `BD@E&#}K)I J VLS:hȱ`8 ȥȥ8葐HTU&$}ȱV` BHI Vhȱ`8 ȥȥ8葐HTU&%}ȱV`B JK Vhȱ`8ȥȥ@jʩ @ʩʩ&&}ʩʩʩʩʩʩ&'}ʩʩʩ @ʩʩʩʩ ʩ&(}ʩ0PILbEʩʩʩ %A&)}ʩʩʩ %Aʩʩʩ %Aʩʩ&*}ʩ %AʩʩʩuuP ʩʩ&+}ʩuuP ʩʩʩ8P &,}ʩʩʩ8P ʩi&-}iLBʩ ʩ|ELEPRESS RETURNʩ x oʩ  8jʩ @ȱ`&.}@LBʩ ʩ|ELEPRESS RETURNʩ x oʩ  8jʩ @ȱ`$PROGRAM MESHUSHE(INPUT,OUTPUT):VAR I,I1,I2,I3,I4,I5:INTEGER;BEGIN WRITELN (' ':10,'**********'); FOR I1:=1 TO *0}2 DO BEGIN FOR I:=1 TO 9 TO BEGIN WRITE (' ',10-I,'*'); WRITELN (' ',I+9,'*'); EN*1}D; END; WRITELN (' ':10,'**********');END. WRITE (' ',10-I,'*'); WRITELN (' ',I+9,'*'); EN(6PROGRAM SKALAR(INPUT,OUTPUT);VAR D1,D2,D3:(JAN,FEB,MAR,APR,MAY,JUNE,JULY,OUG,SEPT,OCT,NOV,DEC);BEGIN D1:=FEB; .3}D2:=JULY; WRITELN(D1,D2); WRITELN(ORD(D1),ORD(D2));END. ULY,OUG,SEPT,OCT,NOV,DEC);BEGIN D1:=FEB; ,I L! M! 8 ȥȥʩʩʩʩ25}ʩ ʩʩ rʩʩ r oʩ ʩ26}ʩ rʩʩ r oȱ` r oʩ ʩ0[PROGRAM MIUN(INPUT,OUTPUT);CONST N=10;VAR A:ARRAY[1..N] OF INTEGER; I,I1,I2,SN,INDI:INTEGER;BEGIN FOR I:=1 TO68} N DO BEGIN WRITE ('ENTER NUMBER'); READLN (A[I]); END; FOR I:=1 TO N DO BEGIN FOR I1:=I TO N DO BEGIN IF 69}(A[I1]I) THEN BEGIN SN:=A[I1]; INDI:=I1; END ELSE BEGIN SN:=A[I1]; INDI:=I1; END6:}; END; FOR I2:=INDI-1 DOWNTO I DO A[I2+1]:=A[I2]; A[I]:=SN; END; FOR I:=1 TO N DO WRITELN (A[I]);END. END4u ) ) 8-ȥȥʩʩʩޕʩ :<}ʩʩޕ0PIL!ʩ ʩ L ENTER NUMBER:=}ʩ xʩ ʩʩ8  6uu 8ʩ:>}iiL ʩʩʩܕʩ ʩ:?}ܕ0PIL'ʩʩʩڕʩ :@}ʩʩڕ0PILC%ʩʩ:A}8  6uuʩPIʩ:B}ʩ5Lq$ʩʩʩ:C}8  6uuʩʩ:D}L!%ʩʩʩ8  6uu:E}ʩʩʩiiL"ʩʩ:F}ʩ8P ʩؕʩʩ:G}ʩؕ0PIL'ʩʩʩuuP:H} 8  6uuʩʩ8  6uu:I}ʩ8L%ʩʩ8 :J} 6uuʩʩiiL!ʩʩ:K}ʩ֕ʩ ʩʩ֕0PI:L}L(ʩ ʩʩ8  6uuʩ:M} r oʩiiL(ȱ`  6uuʩ8IPROGRAM BAGRUT(INPUT,OUTPUT);VAR I,I1,INDI,M:INTEGER;BEGIN WRITE ('ENTER M:-'); READLN (M); INDI:=1; >O} FOR I:=1 TO M DO BEGIN FOR I1:=1 TO M DO BEGIN IF (I*I+4*I1=M) THEN BEGIN WRITELN (I:5,I1>P}:5); INDI:=0; END; END; END; IF (INDI=1) THEN WRITELN ('EIN');END.TELN (I:5,I1<q # # 8ȥȥʩ ʩO LX ENTER M:-ʩ xʩ ʩBR} 8ʩʩʩʩʩʩBS}ʩʩ0PILo#ʩʩBT}ʩʩʩʩ0PBU}ILM#ʩʩ ʩʩ uuP BV}ʩL+#ʩ ʩʩ rʩBW}ʩ r oʩʩʩiiL!ʩiiBX}L!ʩʩL#ʩ ʩɕ#L#EINʩ x oBY}ȱ` ʩL#ʩ ʩɕ#L#EINʩ x o@(************************************)(* NAME:GIL GAZIT;USERNAME:111.9214 *)(************************************)PROGRAM F[}EXERSIZE(INPUT,OUTPUT);VAR I,CNT1,CNT2:INTEGER; NUM1,NUM2:ARRAY [1..10] OF INTEGER; NUM3:ARRAY [1..20] OF INTF\}EGER;BEGIN (*******************) (* RESETING VALUES *) (*******************) FOR I:=1 TO 20 DO NUM3[I]:=0; F]} CNT1:=1; CNT2:=2; (*****************************) (* GETTING & PROCESSING NUM1 *) (********************F^}*********) FOR I:=1 TO 10 DO BEGIN WRITE (I,'-ENTER FIRST BLOCK:'); READLN (NUM1[I]); IF (NUM1[I]F_}<0) THEN BEGIN NUM3[CNT1]:=NUM1[I]; CNT1:=CNT1+2; END; END; (************F`}*****************) (* GETTING & PROCESSING NUM2 *) (*****************************) FOR I:=1 TO 10 DO BEGINFa} WRITE (I,'-ENTER SECOND BLOCK:'); READLN (NUM2[I]); IF (NUM2[I]>0) THEN BEGIN NUM3[CNTFb}2]:=NUM2[I]; CNT2:=CNT2+2; END; END; (*************************) (* RESAULT-PRINTING NUM3 *Fc}) (*************************) FOR I:=1 TO 20 DO BEGIN WRITE (NUM3[I]); WRITE (' '); Fu} ]) ^) 8cȥȥʩʩʩʩJe}ʩʩ0PILa!ʩʩ8Jf} 6uuʩʩiiL ʩʩJg}ʩʩʩʩʩʩ Jh}ʩʩ0PIL$ʩ ʩJi}ʩ rʩ"L"-ENTER FIRST BLOCK:ʩ xʩ ʩʩ8 Jj} 6uu 8ʩʩ8  6uuJk}ʩPIL$ʩʩ8 6uuJl}ʩʩ8  6uuʩJm}ʩʩuuP ʩiiL!ʩʩJn}ʩʩ ʩʩ0PIJo}L'ʩ ʩʩ rʩ%L%-ENTER SECOND BLOCK:ʩ xʩ Jp}ʩЕʩ8  6uu 8ʩЕʩ8Jq}  6uuʩPIL'ʩʩJr}8 6uuʩЕʩ8  6uJs}uʩʩʩuuP Jt}ʩiiL%ʩʩʩʩʩJv} END;END. ) FOR I:=1 TO 20 DO BEGIN WRITE (NUM3[I]); WRITE (' '); D ʩ0PILJ)ʩ ʩʩ8Jw} 6uuʩ rʩ ʩ ʩ {ʩiiJx}L>(ȱ` ʩ rʩ ʩ ʩ {ʩiiHPROGRAM SH1(INPUT,OUTPUT);VAR I,C,C1:INTEGER; NUM:ARRAY[1..20] OF INTEGER;BEGIN C:=0; C1:=0; FOR I:=1 Nz}TO 20 DO BEGIN WRITE (C,' '); C:=C1+C; C1:=C; END; WRITELN (C);EN} f" g" 85ȥȥʩʩʩʩR|}ʩʩʩΕʩʩʩΕR}}0PIL"ʩ ʩʩ rʩ ʩ {ʩʩR~}ʩuuP ʩʩR}ʩiiL ʩ ʩʩ r oȱ` P{ND. DO BEGIN WRITE (C,' '); C:=C1+C; C1:=C; END; WRITELN (C);EL(************************************)(* NAME:Gil Gazit;USERNAME:111.9214 *)(************************************)PROGRAM V}RAIN(INPUT,OUTPUT);VAR I,I1,SUM,C:INTEGER; MONTH :ARRAY [1..6] OF INTEGER;BEGIN (* GETTING & COMPUTING VALUEV}S *) FOR I1:=1 TO 6 DO BEGIN SUM:=0; FOR I:=1 TO 31 DO BEGIN V}WRITE ('ENTER #',I1); READLN (C); SUM:=SUM+C; END; MONTH[I1]:=SUM;V} $ $ 8ȥȥʩʩʩʩZ}ʩʩ0PIL+#ʩʩZ}ʩʩʩʩʩʩZ}0PIL"ʩ ʩ!L!ENTER #ʩ xʩʩ rʩZ} ʩ 8ʩʩʩuuP ʩZ}iiLE!ʩʩ8 6uuʩZ}ʩiiL ʩʩʩʩZ}ʩʩ0PIL$ʩ ʩ#L#MONTHZ} #ʩ xʩʩ rʩ:ʩ {ʩ ʩʩ8Z} 6uuʩ r oʩiiLw#ȱZ}`  6uuʩ r oʩiiLw#ȱX END; (* TYPING RESAULTS *) FOR I:=1 TO 6 DO BEGIN WRITE ('MONTH #',I,':'); WRV}ITELN (MONTH[I]); END;END. ) FOR I:=1 TO 6 DO BEGIN WRITE ('MONTH #',I,':'); WRT%procedure pron;begin#A TXA PHA LDX #$70 LDA #03 STA $342,X LDA #>PR STA $344,X LDA #$4000 STA $2E5 LDA #f}<$4000 STA $2E6 LDA #>$2000 STA $E LDA #<$2000 STA $F LDX #$60 LDA #$03 ;OPEN STA $342,X LDA #>FILEN STA $344,X LDf}A # 1)) do i:=i-1;j}length:=i;end;var a1:string):integer;var i:integer;begini:=maxstring;while ((a1[i] = ' ') and (i <> 1)) do i:=i-1;hprocedure concat(var a1,a2,a3:string);var i,j:integer;begini:=maxstring;while ((a1[i] = ' ') and (i <> 1)) do i:=i-n}1;j:=1;if (a1[i] <> ' ') then begin while (j <= i) do begin a3[j] := a1[j]; j:=j+1; end;end;i:=1;whin}le (j <= maxstring) do begin a3[j] := a2[i]; i:=i+1; j:=j+1;end;end; a1[j]; j:=j+1; end;end;i:=1;whilPfunction substring(var a1:string; i,j:integer) :string;var k:integer; ter}mp:string;beginfor k:=1 to maxstring do temp[k]:=' ';i:=i-1;for k:=1 to j do temp[k] := a1[i+k];substring:=temp;er}nd;string;beginfor k:=1 to maxstring do temp[k]:=' ';i:=i-1;for k:=1 to j do temp[k] := a1[i+k];substring:=temp;epfunction index(var a1,a2:string): integer;var i,j,k,l:integer;begini:=maxstring;while ((a2[i] = ' ') and (i <> 1))v} do i:=i-1;k:=0;repeatj:=1;l:=1; while(j<=i) do begin if(a1[j+k] <> a2[j]) then l:=0; j:=j+1; end; v} k:=k+1;until((l=1) or ((i+k)>maxstring));if(l=1) then index:=k else index:=0;end; then l:=0; j:=j+1; end; tYprocedure setcolor(reg,color,lum:integer);begin#a LDY #3 LDA (SP),Y ASL A AND #$0E STA T LDY #5 LDA (SP),Y ASL A Az}SL A ASL A ASL A ORA T PHA LDA #>$2C4 STA T LDA #<$2C4 STA T+1 LDY #7 LDA (SP),Y AND #$07 CLC ADC T STA T PLAz} LDY #0 STA (T),Y#END; PHA LDA #>$2C4 STA T LDA #<$2C4 STA T+1 LDY #7 LDA (SP),Y AND #$07 CLC ADC T STA T PLAxprocedure plot(horiz,vert,color:integer);begin#a TXA PHA LDY #5 LDA (SP),Y STA $54 LDY #7 LDA (SP),Y STA $55 INY ~}LDA (SP),Y STA $56 LDX #$60 LDA #$0B STA $342,X LDA #0 STA $348,X STA $349,X LDY #3 LDA (SP),Y JSR $E456 PLA TAX~}#END; ),Y STA $56 LDX #$60 LDA #$0B STA $342,X LDA #0 STA $348,X STA $349,X LDY #3 LDA (SP),Y JSR $E456 PLA TAX|procedure position(horiz,vert:integer);begin#a LDY #3 LDA (SP),Y STA $54 LDY #5 LDA (SP),Y STA $55 INY LDA (SP),Y }STA $56#END; ion(horiz,vert:integer);begin#a LDY #3 LDA (SP),Y STA $54 LDY #5 LDA (SP),Y STA $55 INY LDA (SP),Y procedure locate(horiz,vert:integer;var color:integer);begin#a TXA PHA LDY #3 LDA (SP),Y STA T INY LDA (SP),Y STA }T+1 LDY #5 LDA (SP),Y STA $54 LDY #7 LDA (SP),Y STA $55 INY LDA (SP),Y STA $56 LDX #$60 LDA #$07 STA $342,X LDA }#0 STA $348,X STA $349,X JSR $E456 LDY #0 STA (T),Y TYA INY STA (T),Y PLA TAX#END; 60 LDA #$07 STA $342,X LDA _procedure drawto(horiz,vert,color:integer);begin#a TXA PHA LDY #5 LDA (SP),Y STA $54 LDY #7 LDA (SP),Y STA $55 INY} LDA (SP),Y STA $56 LDY #3 LDA (SP),Y STA $2FB LDX #$60 LDA #$11 STA $342,X LDA #$0C STA $34A,X LDA #0 STA $34B,X} JSR $E456 PLA TAX#END;3 LDA (SP),Y STA $2FB LDX #$60 LDA #$11 STA $342,X LDA #$0C STA $34A,X LDA #0 STA $34B,XFUNCTION RANDOM:REAL;BEGIN#A TXA PHA LDA #0 STA TRAN1 INC T JSR POLY CMP #0 BEQ RAN1 ORA #$10 LDY #3 STA (SP),Y};RAN2 INY JSR POLY ROL A ROL A ROL A ROL A AND #$F0 STA T+1 JSR POLY ORA T+1 STA (SP),Y CPY #9 BCC RAN2 LDA T }INY STA (SP),Y PLA TAX#END;#APOLY TYA PHA LDY #0POLY1 INY CLC ROL POLYN ROL POLYN+1 ROL POLYN+2 ROL POLYN+3 R}OL POLYN+4 ROL POLYN+5 ROL POLYN+6 ROL POLYN+7 BCC POLY3; LDX #0POLY2 LDA POLYN,X EOR GEN,X STA POLYN,X INX CPX #8} BCC POLY2 SEC;POLY3 ROL T+2 CPY #4 BCC POLY1;; PLA TAY LDA T+2 AND #$0F CMP #$0A BCS POLY RTS;;GEN DB $A1 }DB $A2 DB $1A DB $A2 DB $91 DB $C3 DB $93 DB $C0;POLYN DB $63 DB $42 DB $A1 DB $23 DB $55 DB $09 DB $03 DB $87}#$A2 DB $1A DB $A2 DB $91 DB $C3 DB $93 DB $C0;POLYN DB $63 DB $42 DB $A1 DB $23 DB $55 DB $09 DB $03 DB $87